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Figure 1 : prior art VHDL listing 



LIBRARY ieee; 

USE ieee.stdjogic i 164,ALL; 
USE ieee. stdjogic arith. ALL; 



ENTITY test IS 
PORT! 



100 



); 



elk : IN stdjogic; 

rst : IN stdjogic; 

inl : IN unsigned(7 downto 0); 

in2 : IN unsigned(7 downto 0); 

outi : OUT unsigned(7 downto 0) 



END; 



ARCHITECTURE behavioral OF test IS 
BEGIN 

main : PROCESS 

VARIABLE mini : unsigned(7 downto 0); 
VARIABLE min2 : unsigned(7 downto 0); 



BEGIN 



110 



120 



WAIT UNTIL (clk'EVENT and elk = '1'); 
mini : = inl ; 
min2 : = in2; 

loopi : WHILE ( mini < min2 ) LOOP 
IF (min2 > 0) THEN 

FOR X IN 0 TO 7 LOOP 

mini := mini + min2; 
min2 : = min2 -1 ; 
LEND LOOP; 



130 



ELSE 
140 



END 
END LOOP; 
outi < = mini * min2; 
END PROCESS; 



FOR X IN 10 DOWNTO 5 LOOP 
mini : = mini - x; 
_END LOOP; 
F; 



END; 
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